library(readr)
library(tidyverse)
library(knitr)
library(gt)
library(gtExtras)
library(gtsummary)
library(reactable)
options(dplyr.width = Inf, dplyr.print_max = 1e9,  width = 144)

kable(NVIDIA) 

start_date <- min(NVIDIA$Date)
end_date <- max(NVIDIA$Date)
NVIDIA[1:20,] |>
  gt() |>
   fmt_currency(columns = -Volume) |>
   fmt_date(columns = Date, date_style = "wd_m_day_year") |>
   fmt_number(columns = 7, decimals = 0, sep_mark = ",", dec_mark = ".") 

start_date <- min(NVIDIA$Date)
end_date <- max(NVIDIA$Date)
NVIDIA[1:6,] |>
  gt() |>
  tab_header(
    title = md("**NVIDIA**"),
    subtitle = glue::glue("{start_date} to {end_date}")
  ) |>
  fmt_currency(columns = -Volume) |> 
  fmt_number(columns = Volume, decimals = 0, sep_mark = ",", dec_mark = ".") |>
  fmt_date(columns = Date, date_style = "wd_m_day_year") |>
 tab_source_note(
    source_note = md("**Source: Yahoo Finance**")
  ) 

start_date <- min(NVIDIA$Date)
end_date <- max(NVIDIA$Date)
NVIDIA |>
  gt(rowname_col = "Date") |>
  tab_header(
    title = md("**NVIDIA**"),
    subtitle = glue::glue("{start_date} to {end_date}")
  ) |>
  tab_stubhead(label = "Date") |>
  fmt_currency(columns = -Volume) |>
  fmt_number(columns = Volume, decimals = 0, sep_mark = ",", dec_mark = ".") |>
  fmt_date(columns = Date, date_style = "wd_m_day_year") |>
 tab_source_note(
    source_note = md("**Source: Yahoo Finance**")
  ) 

monthly_summary <- NVIDIA %>% 
  mutate(Year = year(Date), Month = month(Date)) %>%
  group_by(Year, Month) %>%
  summarise(
    Avg_Open = round(mean(Open, na.rm = TRUE), digits =2),
    Avg_Close = round(mean(Close, na.rm = TRUE), digits =2),
    Avg_Volume = mean(Volume, na.rm = TRUE),
    Total_Volume = sum(Volume, na.rm = TRUE)
  ) %>%
  ungroup()
kable(monthly_summary)

monthly_summary[,-1] |> 
  gt() |>
  tab_row_group(
    label = "2023",
    rows = 1:12
  ) |>
  tab_row_group(
    label = "2024",
    rows = 13:14
  )  |>
  fmt_number(columns = c(Avg_Volume, Total_Volume), decimals = 0, sep_mark = ",", dec_mark = ".") |>
  fmt_currency(columns = -c(Month, Avg_Volume, Total_Volume))

monthly_summary[,-1] |> 
  gt() |>
  tab_spanner(
    label = "Price",
    columns = c(Avg_Open, Avg_Close)) |>
  tab_spanner(
    label = "Volume",
    columns = c(Avg_Volume, Total_Volume)) |>
  tab_row_group(
    label = "2023",
    rows = 1:12
  ) |>
  tab_row_group(
    label = "2024",
    rows = 13:14
  )  |>
  fmt_number(columns = c(Avg_Volume, Total_Volume), decimals = 0, sep_mark = ",", dec_mark = ".") |>
  fmt_currency(columns = -c(Month, Avg_Volume, Total_Volume))